eGP c n = n:(concat (map (eGP c) (c n)))
